sHelp
                                     SCH.SUB.DEP
       2
   SCH subdepartment dict.
     SCH subdepartment facilities

 Ì       2
SCH subdepartment dict.    (main) 
[dept,sub.dept]
&SSDP[dept,sdept]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 dept                        10 FREE     L  SCH.DEP.DICT   dept                                                    
 sub.dept                    10 FREE     L                 sdept                                                       
 active                       1 YN       L                 &SSDP[dept,sdept]|0                                         
 last.update                 10 PINT     R                 &SSDP[dept,sdept]UPD                                        
 name                        30 FREE     L                 &SSDP[dept,sdept]|1                                         
 sub.dept.id                 43 FREE     L                 VAL=@sub.dept_" - "_@name                                   

 Ì   €�     2
SCH subdepartment facilities    (facilities) 
[dept,sub.dept, facility]
&SSDP[dept,sdept]FAC[gqb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 facility                    10 FREE     L  MIS.FACILITY   gqb